home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue32 / clinic / DLL.DPR < prev    next >
Encoding:
Text File  |  1998-01-05  |  297 b   |  22 lines
  1. library Dll;
  2.  
  3. uses
  4.   WinTypes;
  5.  
  6. function Pow(X, Y: Double): Double; {$ifndef Win32}export{$else}stdcall{$endif};
  7. begin
  8.   if X = 0 then
  9.     if Y = 0 then
  10.       Result := 1
  11.     else
  12.       Result := 0
  13.   else
  14.     Result := Exp(Ln(X) * Y);
  15. end;
  16.  
  17. exports
  18.   Pow index 1;
  19.  
  20. begin
  21. end.
  22.